unit FTPEngine;

interface

uses
  Winapi.Windows, System.Classes, Engine, Protocol, FTPDirectory,
  ContextFactory, MemBuffer, WinSocket, System.SysUtils, TCPEngine;

type
  TIFTPEngine = class(TITCPEngine)
  private
    FDirectory: TFTPDirectory;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property Directory: TFTPDirectory read FDirectory write FDirectory;
  end;

implementation

{ TIFTPEngine }

constructor TIFTPEngine.Create;
begin
  inherited Create;
  FDirectory := TFTPDirectory.Create;
end;

destructor TIFTPEngine.Destroy;
begin
  FreeAndNil(FDirectory);
  inherited Destroy;
end;

end.
